select * ;
  from movmento a, clientes b, medicos c, convenio d, servicos e ;
 where a.paciente = b.interno ;
   and a.medico   = c.codigo  ;
   and a.convenio = d.codigo  ;
   and a.servico  = e.codigo  ;
   and b.nome  like 'IRANI J%';
 order by a.paciente, a.data,a.hora ;
  into cursor cMov
